From: Miles Bader Date: Fri, 11 Oct 2002 06:47:49 +0000 (+0000) Subject: (vc-cvs-parse-entry): Don't barf when an `Entries' files contains an X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~30214 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ea9c6bffa9d75e5c9ad0a5fd00468f8ad771602f;p=emacs.git (vc-cvs-parse-entry): Don't barf when an `Entries' files contains an invalid timestamp. --- diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index f9d41452133..f9059a9ce48 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -1,11 +1,11 @@ ;;; vc-cvs.el --- non-resident support for CVS version-control -;; Copyright (C) 1995,98,99,2000,2001 Free Software Foundation, Inc. +;; Copyright (C) 1995,98,99,2000,2001,2002 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-cvs.el,v 1.46 2002/10/09 15:59:39 rost Exp $ +;; $Id: vc-cvs.el,v 1.47 2002/10/10 08:44:58 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -884,15 +884,15 @@ is non-nil." ;; compare checkout time and modification time (let ((mtime (nth 5 (file-attributes file)))) (require 'parse-time) - (cond ((equal mtime - (apply 'encode-time - (parse-time-string - (concat (match-string 2) " +0000")))) - (vc-file-setprop file 'vc-checkout-time mtime) - (if set-state (vc-file-setprop file 'vc-state 'up-to-date))) - (t - (vc-file-setprop file 'vc-checkout-time 0) - (if set-state (vc-file-setprop file 'vc-state 'edited)))))))) + (let ((parsed-time + (parse-time-string (concat (match-string 2) " +0000")))) + (cond ((and (car parsed-time) + (equal mtime (apply 'encode-time parsed-time))) + (vc-file-setprop file 'vc-checkout-time mtime) + (if set-state (vc-file-setprop file 'vc-state 'up-to-date))) + (t + (vc-file-setprop file 'vc-checkout-time 0) + (if set-state (vc-file-setprop file 'vc-state 'edited))))))))) (provide 'vc-cvs)